﻿Public Class PropertyEncryptor
    Implements iDOPropertyFilter

    Public Function Input(ByVal src As String) As String Implements iDOPropertyFilter.Input
        Dim x As New SimpleCrypt(src, HardwareID.SystemHash)
        Return x.OriginalString
    End Function

    Public Function Output(ByVal src As String) As String Implements iDOPropertyFilter.Output
        Dim x As New SimpleCrypt
        x.Key = HardwareID.SystemHash
        x.OriginalString = src
        Return x.EncryptedString
    End Function
End Class
